home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / telecomm / unitmacs.lzh / GENIEX.MAC < prev    next >
Encoding:
Text File  |  1990-02-19  |  2.7 KB  |  61 lines
  1. #This macro will load a customized GEnie set-up file and dial w/login.
  2. #Be sure control codes sent to modem are correct for your equipment.
  3.  
  4. me('Setting modem echo to OFF,timeout to 17 sec.') w(20) 
  5. se('atz\r\n') w(10) se('ate0\r\n') w(10) se('ats7=17\r\n') w(10) 
  6. me('Loading GEnie set-up file') w(05) Loadsetup('genie.set') 
  7. #This macro will redial w/prompt for retry number. 
  8. me('Dialing GEnie BBS.  Will re-dial w/prompt for retries') w(20) 
  9. #The following code contains the phone number and sets re-dial countdown:
  10. se('atdt       \r\n') w(05) set(1,1) set(2,0) 
  11. #Following looking for first message from online to respond to: 
  12. if(!get('CONNECT',20)) ca(1) 
  13. #Put log-on codes here. 
  14. W(10) se('h') w(05) se('h') w(05) se('h\n') 
  15. get('U#=',10) w(10) 
  16. send('        ,        \r\n') w(10) 
  17. #Start history and end macro.
  18. history(1) me('History recording is on') w(20) exit(0) 
  19. :1 
  20. #1st fail and re-dial message. 
  21.   ec('Failed!\r\n') w(05) se('\n') 
  22. #If # and OK, go on (User enters num. of times to re-dial). If Cancel, exit. 
  23.   if(!input('Retries?  Enter #1-?+Ret. or Cancel')) ec('Quit!\n') exit(0) 
  24. #Check to see if $T is "0". Yes=quit, No=go on. 
  25.   if(com($T,'0')) ec('Quit.  FINISHED!\r\n') exit(0) 
  26. #Use # in $T to set re-try counter. 
  27.   set(1,.$T) 
  28. #Place number in "Wait" command 3 seconds less than re-dial timeout. 
  29.   me('Re-dial in 30 seconds.') w(270) 
  30. :2 
  31. #Re-dial count, display, and check follows: @1= retry countdown @2=retry#,
  32. #"$T"=current re-try display count. 
  33. #Display total remaining user re-tries on next line: 
  34.   ec("@1) ec(' re-dial remains:\n') w(05) 
  35.   set(1,add(@1,-1)) set(2,add(@2,1)) con('RETRY# ',"@2') ec($T) ec('\r\n') 
  36.   mess('Re-dialing GEnie BBS.   Cntrl-C aborts. NOW!') w(30) 
  37.   me('Dialing...') send('atdt       \r\n') 
  38. #Timeout for re-dial and success/fail.  "ju(4)"=fail 
  39.   if(!ge('CONNECT',35)) ju(4) 
  40. #If success, will return to log-in code near beginning. 
  41.   return( ) 
  42. :4 
  43. #Look for count in @1 for "0". If not, re-dial. 
  44. #If so, prompt for more retries. 
  45.   if(com("@1','0')) ca(5) 
  46. #Failed and redial message for all until last prompt. 
  47.   ec('Failed!\r\n') w(10) se('\n') me('Re-dial in 30 sec.') w(270) ju(2) 
  48. :5 
  49. #Prompt to try again or stop and end macro. 
  50.   ec('Failed!  More retries?\r\n') w(05) se('\n') 
  51. #User clicks "OK", will loop re-dial routine. 
  52. #Prompt for re-try #. "set" for variable int. @1 to # entered by user. 
  53. #If "Cancel" is clicked, message, and end. 
  54.   if(input('Retries failed. Try again? Enter#1-?')) ju(6) 
  55.   ec('ALL RETRIES FAILED! FINISHED.\r\n') w(10) exit(0) 
  56. :6 
  57. #Check to see if $T is "0". Yes=quit, No=go on. 
  58.   if(com($T,'0')) ec('Quit.  FINISHED!\n') exit(0) 
  59. #Make "set" for variable "@1" user number. 
  60.   w(05) set(1,.$T) ju(2)
  61.